﻿Module Module1
  Sub Main()

    Dim numero As Integer

    numero = 17345
    Console.WriteLine(
      numero.ToString & ": " &
      numero.PariDispari)

    numero = 1666
    Console.WriteLine(
      numero.ToString & ": " &
      numero.PariDispari)

    Console.ReadLine()

  End Sub

  Public Function PariDispari(ByVal numero _
      As Integer) As String
    Select Case (numero Mod 2)
      Case 0
        Return "Pari"
      Case Else
        Return "Dispari"
    End Select
  End Function
End Module
